home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_07_(08-1984).d64 / bits and bytes (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  12KB  |  361 lines
  1. 10 REM *** BY QUINCY LEE ***
  2. 20 IFPEEK(861)<>136THENPOKE861,136:LOAD" BYTSPRITES",8,1
  3. 30 DIMTX$(18),TS(18):V=53248
  4. 40 SP$="                                      ":DN$=""
  5. 50 GOTO900
  6. 100 REM
  7. 101 PC=P2
  8. 105 POKE2040,237:POKEV+23,PEEK(V+23)AND254:POKEV+29,PEEK(V+29)AND254
  9. 110 POKE646,HC
  10. 115 IFCS=0THENPRINT"[147]"
  11. 120 CS=0:PRINT""H1$;H2$;H3$
  12. 130 SF$=""
  13. 140 POKE646,PEEK(V+33)
  14. 150 TL=0:FORI=1TO18:TS(I)=VAL(TX$(I)):IFTS(I)=0THEN170
  15. 160 PRINTLEFT$(SP$,TS(I));MID$(TX$(I),3);"[160]@@";:BL=I:IFTL=0THENTL=I
  16. 170 PRINT:NEXTI
  17. 172 PRINTLEFT$(DN$,BL+4);LEFT$(SP$,TS(BL));MID$(TX$(BL),3)"   [157][157]";:GOSUB800
  18. 180 POKE646,HC:PRINT""
  19. 190 POKEV+39,PC:REM PC IS THE TEXT COLOUR
  20. 200 FORR=3+TLTO3+BL
  21. 210 POKEV+1,44+8*R
  22. 230 IFTS(R-3)=0THEN410
  23. 240 POKEV,8*TS(R-3)+2:POKEV+16,0:POKEV+21,1
  24. 260 FORX=TS(R-3)TO43STEP2:CP=1023+40*R+X:PK=PEEK(CP)
  25. 270 IFPK=0THEN410
  26. 310 IFX<32THENPOKEV,8*X+2:GOTO330
  27. 320 POKEV+16,1:POKEV,8*X-254
  28. 330 FORF=237TO242STEP4
  29. 340 POKE2040,F
  30. 350 IFF=237THENPOKE55294+40*R+X,PC:POKE55295+40*R+X,PC
  31. 370 NEXTF
  32. 400 NEXTX
  33. 410 POKEV+21,0:NEXTR
  34. 420 POKEV+21,0
  35. 430 FORI=1TO18:TX$(I)="":NEXTI
  36. 440 RETURN
  37. 450 REM CSR
  38. 455 CC=P2
  39. 460 POKE209,C1%:POKE210,C2%:POKE211,C3%+1:POKE214,C4%
  40. 505 IFSF$<>"CONT"THENRS$="":POKE211,C3%
  41. 507 PRINTMID$("        [157][157][157][157][157][157][157][157]",9-IL,IL*2);
  42. 510 RF$="":POKE204,0:POKE646,CC:POKE647,CC:PRINT".[157] [157]";
  43. 520 GETIN$:IFIN$=""THEN520
  44. 530 GOSUB540:IFRF$<>"RETURN"THEN520
  45. 535 RETURN
  46. 540 REM IN
  47. 550 POKE646,CC:POKE647,CC
  48. 560 IFIN$=CHR$(13)ANDLEN(RS$)>0THENPOKE204,1:PRINT" [157]":SF$="":RF$="RETURN":RETURN
  49. 570 IFIN$<>CHR$(20)ORLEN(RS$)=0THEN600
  50. 580 RS$=LEFT$(RS$,LEN(RS$)-1)
  51. 590 PRINT" [157][157] [157]";:RETURN
  52. 600 IFLEN(RS$)>=ILTHENRETURN
  53. 610 FORIZ=1TOLEN(IC$)
  54. 620 IFIN$=MID$(IC$,IZ,1)THENRS$=RS$+IN$:PRINTIN$;:RETURN
  55. 630 NEXTIZ:RETURN
  56. 650 REM SPC
  57. 660 POKE646,HC
  58. 670 PRINT"      PRESS SPACE BAR[146] TO CONTINUE."
  59. 680 GETIN$:IFIN$<>" "THEN680
  60. 690 RETURN
  61. 700 REM CRSR
  62. 705 POKE209,C1%:POKE210,C2%:POKE211,C3%:POKE214,C4%
  63. 707 PRINTMID$("        [157][157][157][157][157][157][157][157]",9-IL,IL*2);
  64. 710 RS$="":RF$="":POKE204,0:POKE646,CC:POKE647,CC:PRINT".[157] [157]";
  65. 730 GETIN$:IFIN$=""THEN730
  66. 740 GOSUB540:IFIN$=""THEN730
  67. 750 SF$="CONT":POKE204,1:PRINT:RETURN
  68. 800 REM CRSR
  69. 810 C1%=PEEK(209):C2%=PEEK(210):C3%=PEEK(211):C4%=PEEK(214):RETURN
  70. 820 REM ---WAIT FOR RETURN KEY---
  71. 830 GOSUB800:POKE646,P2:PRINT"   [PRESS RETURN]
  72. 840 [151]209,C1%:[151]210,C2%:[151]211,C3%:[151]214,C4%
  73. 845 [151]646,P2:[151]647,P2:[151]204,0
  74. 850 [161]IN$:[139]IN$[179][177][199](13)[167]850
  75. 860 [153]"                 ":[151]204,1:[142]
  76. 900 [143]SPRITES
  77. 910 [151]V[170]40,6:[151]V[170]41,2:[151]V[170]39,2
  78. 920 [151]V[170]23,7:[151]V[170]29,199
  79. 930 [151]V[170]3,137
  80. 940 [151]2042,250:[151]V[170]4,160:[151]V[170]5,176:[151]V[170]27,4
  81. 950 [151]2040,249:[151]V,72:[151]V[170]1,137
  82. 960 [151]V[170]2,80:[151]V[170]16,3
  83. 970 [151]2041,251
  84. 980 [129]I[178]3[164]7:[151]2040[170]I,248[170]I:[151]V[170]1[170]2[172]I,111:[130]I
  85. 982 [151]V[170]6,140:[151]V[170]8,164:[151]V[170]10,188:[151]V[170]12,132:[151]V[170]14,180
  86. 984 [151]V[170]42,13:[151]V[170]43,13:[151]V[170]44,13:[151]V[170]45,9:[151]V[170]46,9
  87. 1000 [143]TITLE
  88. 1001 V[178]53248:[151]V[170]21,0:[151]53272,21
  89. 1002 [151]V[170]32,12
  90. 1003 [151]V[170]33,12
  91. 1020 [153]"LOAD"[163]15)"USING YOUR"
  92. 1025 [151] 646,[194](V[170]33)
  93. 1030 [153]"         (null)LENRIGHT$(null)LENRIGHT$(null)=RIGHT$(null)=RIGHT$(null)LENRIGHT$ORLENRIGHT$(null)LENRIGHT$ORLENRIGHT$ORLENRIGHT$"
  94. 1040 [153]"         PEEK  PEEK (null)PEEK(null)(null)PEEK(null)(null)PEEKCLOSE(null)PEEKCLOSEPEEKPEEKCLOSE(null)-=(null)-LEN"
  95. 1050 [153]"         MID$TAN(null)MID$TAN(null)> >>CLOSE>MID$TAN(null)/TAN(null)MID$TAN(null)>MID$EXP/LEN(null)"
  96. 1060 [129]I[178]1[164]4:[153][163]17)"     WAIT":[130]:[153]"ONONONON";
  97. 1100 [143]
  98. 1170 [151]V[170]21,7
  99. 1180 [129]X[178]42[164]6[169][171]2
  100. 1190 :[129]F[178]243[164]248
  101. 1200 : [139]F[177]243[167]1270
  102. 1210 :  [151]2041,243
  103. 1220 :  [139]X[177]31[167][151]V[170]2,X[172]8[171]256:[137]1240
  104. 1230 :  [151]V[170]2,X[172]8:[151]V[170]16,1
  105. 1240 :  [151]55775[170]X,13:[151]55815[170]X,13:[151]55855[170]X,13
  106. 1250 :  [151]55774[170]X,13:[151]55814[170]X,13:[151]55854[170]X,13
  107. 1260 :  [137]1280
  108. 1270 : [151]2041,F
  109. 1280 : [129]T[178]1[164]18:[130]T
  110. 1290 :[130]F
  111. 1300 :[129]T[178]1[164]30:[130]T
  112. 1310 [130]X
  113. 1320 [151]2041,243
  114. 1330 [151]V[170]2,40
  115. 1340 [129]F[178]244[164]246:[151]2041,F:[130]F
  116. 1350 [129]X1[178]330[164]90[169][171]40:X[178]X1[171]256
  117. 1355 [139]X1[179]256[167]X[178]X1:[151]V[170]16,0
  118. 1360 [151]V,X:[151]V[170]1,139:[129]T[178]1[164]100:[130]T
  119. 1365 [151]V,X[171]10:[151]V[170]1,137
  120. 1370 [151]V,X[171]20:[151]V[170]1,136
  121. 1375 [151]V,X[171]30:[151]V[170]1,137
  122. 1380 [130]X1
  123. 1385 [151]V,50:[151]V[170]1,139:[129]T[178]1[164]200
  124. 1387 [151]V,40:[151]V[170]1,137
  125. 1388 [129]T[178]1[164]500:[130]T
  126. 1390 [129]I[178]1[164]4:[153][163]17);"SPC(SPC(SPC(SPC(SPC(":[130]I
  127. 1400 [129]T[178]1[164]200:[130]T
  128. 1410 [129]I[178]25[164]5[169][171].5
  129. 1420 [151]1721[170]40[172][181]([187](1)[172]4)[170][181]([187](1)[172]5),32
  130. 1430 [129]T[178]1[164]I:[130]T
  131. 1440 [130]I
  132. 1450 [151]V[170]27,0
  133. 1460 [153]""[163]8)"(null)BITS(null)BYTES(null)PEEKS(null)POKES(null)"
  134. 1490 [151]V[170]29,199:[151]V[170]21,255
  135. 1500 [153]"";[163]23);
  136. 1510 [129]OJ[178]1[164]8:[153]".CMD";:[129]I[178]1[164]200:[130]I
  137. 1520 [153]" CMD";:[129]I[178]1[164]200:[130]I:[130]OJ
  138. 1530 [151]V[170]21,0
  139. 4000 [143]TEXT
  140. 4001 P2[178]6:BQC[178]12:BZR[178]12:[153]"":[141]6000
  141. 4010 [153]"LOAD":[151]53272,23:[151]V[170]32,BZR:[151]V[170]33,BQC:HC[178]P2
  142. 4020 H1$[178]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
  143. 4022 H2$="[221]  [194][201][212][211]  *  [194][217][212][197][211]  *  [208][197][197][203][211]  *  [208][207][203][197][211]  [221]
  144. 4024 H3$[178]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
  145. 4030 TX$(6)="16[212]HE WORD"
  146. 4035 TX$(8)="19BIT[146]"
  147. 4040 TX$(10)="14IS SHORT FOR"
  148. 4042 TX$(12)="16THE TERM"
  149. 4045 TX$(14)="14BINARY DIGIT[146]."
  150. 4047 PC=14:GOSUB100:GOSUB650
  151. 4050 TX$(6)="13[193] BINARY DIGIT"
  152. 4055 TX$(8)="14MAY HAVE TWO"
  153. 4060 TX$(10)="12POSSIBLE VALUES:"
  154. 4070 TX$(14)="16[160]0  OR  1
  155. 4080 PC[178]13:[141]100:[141]650
  156. 4090 TX$(5)[178]" 8(null)HILE THERE ARE ONLY TWO"
  157. 4100 TX$(7)[178]" 8BINARY DIGITS, THERE ARE"
  158. 4110 TX$(9)[178]" 8FOUR TWO-DIGIT BINARY"
  159. 4120 TX$(11)[178]" 8NUMBERS, NAMELY,"
  160. 4130 TX$(14)[178]" 8CLOSE00,  01,  10  AND  11."
  161. 4140 PC[178]10:[141]100:[141]650
  162. 4150 TX$(2)[178]" 6LEFT$OW MANY THREE-DIGIT BINARY"
  163. 4160 TX$(4)[178]" 6NUMBERS DO YOU THINK THERE"
  164. 4170 TX$(6)[178]" 6ARE?"
  165. 4180 PC[178]3:[141]100
  166. 4190 IC$[178]"1234567890":IL[178]1:CC[178]5:[141]450:[139]RS$[178]"8"[167]4200
  167. 4191 [153]"      LEFT$INT:  THERE ARE TWICE AS
  168. 4192 PRINT"      MANY THREE-DIGIT BINARY NUM-
  169. 4193 [153]"      BES AS THERE ARE TWO-DIGIT
  170. 4194 PRINT"      ONES.":GOSUB700
  171. 4195 PRINT"                               "
  172. 4196 PRINT"                                  "
  173. 4197 PRINT"                                "
  174. 4198 PRINT"           ":GOTO4190
  175. 4200 PRINT"      [210]IGHT!  [212]HESE THREE-DIGIT"
  176. 4210 PRINT"      NUMBERS ARE:":FORT=1TO100:NEXTT
  177. 4220 BN$="000001010011100101110111"
  178. 4230 FORI=1TO10STEP3:PRINTTAB(14)MID$(BN$,I,3):FORT=1TO50:NEXTT:NEXTI
  179. 4240 PRINT"[145][145][145][145][145]"
  180. 4250 FORI=13TO22STEP3:PRINTTAB(23)MID$(BN$,I,3):FORT=1TO100:NEXTT:NEXTI
  181. 4260 GOSUB650
  182. 4270 TX$(2)="10[204]ET'S MAKE A CHART.":PC=7:GOSUB100
  183. 4280 PRINT"         NUMBER OF[146]    NUMBER OF[146]"
  184. 4290 PRINT"          BINARY  [146]    POSSIBLE [146]"
  185. 4300 PRINT"          DIGITS  [146]     VALUES  [146]"
  186. 4310 FORI=1TO7:J=2^I
  187. 4320 FORT=1TO80:NEXTT:PRINTTAB(11);I;
  188. 4330 FORT=1TO30:NEXTT:PRINTTAB(27-LEN(STR$(J)));J:NEXTI:PRINTTAB(11);8
  189. 4340 PRINT"     [195]AN YOU CORRECTLY FILL IN THE"
  190. 4350 PRINT"        LAST SPACE IN THE CHART?[145][145][145][157][157][157][157][157][157][157][157]";:GOSUB800
  191. 4360 IL=3:IC$="0123456789":CC=4:GOSUB450
  192. 4370 IFRS$="256"THEN4410
  193. 4380 PRINT"    [206]O, WHAT'S 2 TO THE POWER OF 8?"
  194. 4382 PRINT"                                "
  195. 4387 GOSUB700
  196. 4390 PRINT"                                   ":GOSUB450:GOTO4370
  197. 4410 TX$(2)=" 5[212]HE TERM BYTE[146] REFERS TO 8 BITS[146]."
  198. 4430 TX$(5)=" 5[211]INCE A BYTE IS JUST AN EIGHT-"
  199. 4440 TX$(7)=" 5DIGIT BINARY NUMBER, HOW MANY"
  200. 4450 TX$(9)=" 5POSSIBLE VALUES CAN A BYTE"
  201. 4460 TX$(11)=" 5HAVE?"
  202. 4500 PC=12:GOSUB100:CC=14
  203. 4510 GOSUB450:IFRS$="256"THEN4550
  204. 4520 PRINT"     [217]OU CAN'T EVEN REMEMBER 2[145]8 !?":GOSUB700
  205. 4530 PRINT"                              [145]    ":GOTO4510
  206. 4550 PRINT"     [212]HAT'S RIGHT.  [201]T CAN HAVE ANY"
  207. 4560 PRINT"     VALUE FROM 0 TO 255.":GOSUB650
  208. 4570 TX$(4)=" 6[193]LSO, A NIBBLE[146] IS SIMPLY"
  209. 4580 TX$(6)=" 64 BITS[146]."
  210. 4590 TX$(9)=" 6[211]O HOW MANY POSSIBLE VALUES"
  211. 4600 TX$(11)=" 6CAN A NIBBLE HOLD?"
  212. 4610 PC=8:GOSUB100:IC$="0123456789":IL=2:CC=12
  213. 4620 GOSUB450:IFRS$="16"THEN4660
  214. 4630 PRINT"      [195]OME ON, IT'S ONLY 2[145]4 !":GOSUB700
  215. 4640 PRINT"                          [145]   ":GOTO4620
  216. 4660 PRINT"      [195]ORRECT, SINCE IT CAN HOLD
  217. 4670 [153]"      ANY NUMBER FROM 0 TO 15.":[141]650
  218. 4680 TX$(4)[178]" 7(null)OW, YOU WILL NOTICE THAT
  219. 4690 TX$(6)=" 7THERE ARE 65536 BYTES[146] OF
  220. 4700 TX$(8)[178]" 7MEMORY IN THIS COMPUTER
  221. 4720 TX$(11)=" 7[197]ACH BYTE HAS AN ADDRESS,
  222. 4730 TX$(13)[178]" 7A NUMBER BETWEEN 0 AND
  223. 4740 TX$(15)="7.65535."
  224. 4760 PC=14:GOSUB100:GOSUB650
  225. 4770 TX$(5)=" 7[212]O FIND THE VALUE STORED
  226. 4780 TX$(7)[178]" 7IN A MEMORY LOCATION, WE
  227. 4790 TX$(9)=" 7USE THE"
  228. 4800 TX$(12)="13PEEK[146] FUNCTION.
  229. 4820 PC[178]8:[141]100:[141]650
  230. 4830 TX$(2)[178]"11(null)HE SYNTAX OF THE
  231. 4840 TX$(3)="11PEEK FUNCTION IS
  232. 4850 TX$(5)[178]"14PEEK(NUMBER)
  233. 4860 TX$(7)="11[207]BSERVE:
  234. 4870 PC[178]12:[141]100
  235. 4875 PL[178][181]([187](1)[172]65536):PL$[178][202]([196](PL),2):PN$[178][196]([194](PL))
  236. 4880 [153]"  PRINT PEEK("PL$")";:[141]820
  237. 4890 [153]"  "PN$:[153]"  READY."
  238. 4900 TX$(15)[178]" 7(null)HIS MEANS THAT"[170]PN$[170]" IS THE"
  239. 4910 TX$(17)[178]" 7VALUE STORED IN BYTE "[170]PL$[170]"."
  240. 4920 CS[178]1:[141]100:[141]650
  241. 4930 TX$(5)[178]" 7(null)OTE:  PEEKWAIT IS A FUNCTION
  242. 4940 TX$(7)="14[206][207][212] A STATEMENT.
  243. 4950 PC[178]10:[141]100:[153]"  PEEK("PL$")";:[141]800:[141]820
  244. 4960 [153]"  ?SYNTAX  ERROR":[153]"  READY.":[141]650
  245. 4970 TX$(1)[178]" 6ATNLSO, TO PUT A CERTAIN VALUE
  246. 4980 TX$(3)=" 6IN A MEMORY LOCATION, WE USE
  247. 4990 TX$(5)[178]" 6THE POKEWAIT STATEMENT.  (null)ATCH:"
  248. 5000 PC[178]4:[141]100:PL[178][181]([187](1)[172]4096)[170]49152:PL$[178][202]([196](PL),2)
  249. 5010 PN[178][181]([187](1)[172]256):PN$[178][202]([196](PN),2):[139]PN[178][194](PL)[167]5010
  250. 5015 [153]"  PRINT PEEK("PL$")";:[141]820
  251. 5020 [153]"  "[194](PL):[153]"  READY.":[153]"  POKE "PL$","PN$;:[141]820
  252. 5030 [151]PL,PN:[153]"  READY.":[153]"  PRINT PEEK("PL$")";:[141]820
  253. 5040 [153]"  "[194](PL):[153]"  READY.":[141]650
  254. 5050 TX$(1)[178]" 6(null)UPPOSE WE WANT A CERTAIN
  255. 5060 TX$(3)=" 6LOCATION TO STORE THE BINARY
  256. 5070 TX$(5)[178]" 6NUMBER 00000001, WHAT VALUE
  257. 5080 TX$(7)=" 6SHOULD WE POKE INTO THIS
  258. 5090 TX$(9)[178]" 6LOCATION?
  259. 5100 PC=14:GOSUB100:IC$="0123456789":IL=1
  260. 5110 CC=5:GOSUB450:IFRS$="1"THEN5160
  261. 5120 PRINT"      [201]T IS MUCH EASIER THAN YOU
  262. 5130 [153]"      THINK!":[141]700
  263. 5140 [153]"                                "
  264. 5150 [153]"            ":[137]5110
  265. 5160 [153][163]26)"ON[OR 2^0]
  266. 5170 TX$(11)=" 6[206]OW TRY 00000010.":PC=15:CS=1:GOSUB100
  267. 5180 GOSUB450:IFRS$="2"THEN5230
  268. 5190 PRINT"      [201]T'S THE NEXT NUMBER AFTER
  269. 5200 [153]"      YOUR PREVIOUS ANSWER.":[141]700
  270. 5210 [153]"                                "
  271. 5220 [153]"                           ":[137]5180
  272. 5230 [153][163]26)"ON[OR 2^1]
  273. 5240 TX$(13)=" 6[193]ND 00000100?":PC=14:CS=1:GOSUB100
  274. 5250 GOSUB450:IFRS$="4"THEN5280
  275. 5260 PRINT"      [210]EMEMBER, 3 IS 00000011.":GOSUB700
  276. 5270 PRINT"                              ":GOTO5250
  277. 5280 PRINTTAB(26)"[145][OR 2^2]
  278. 5285 TX$(15)[178]" 6(null)ERY GOOD.  RIGHT$ SEE THAT YOU
  279. 5290 TX$(17)=" 6CAUGHT ON TO THE PATTERN.
  280. 5300 PC[178]15:CS[178]1:[141]100:[141]650
  281. 5310 TX$(4)[178]" 7(null)E CAN IDENTIFY EACH BIT
  282. 5320 TX$(6)=" 7IN THE BYTE WITH A NUMBER,
  283. 5330 TX$(8)[178]" 7LIKE SO:     76543210.
  284. 5340 TX$(12)=" 7[198]OR EXAMPLE, WE CAN CALL
  285. 5350 TX$(14)[178]" 7THE LEFTMOST BIT:  PEEKIT #7.":PC[178]7:[141]100:[141]650
  286. 5360 TX$(2)[178]" 7RIGHT$F WE POKE 8 INTO A CER-
  287. 5370 TX$(4)=" 7TAIN LOCATION, WHICH BIT
  288. 5380 TX$(6)[178]" 7WILL HAVE THE VALUE 1?
  289. 5390 PC=10:GOSUB100:IL=1:IC$="01234567"
  290. 5395 CC=10:GOSUB450:IFRS$="3"THEN5420
  291. 5400 PRINT"       2 RAISED TO WHAT POWER
  292. 5405 [153]"       IS 8?":[141]700
  293. 5410 [153]"                             "
  294. 5415 [153]"            ":[137]5395
  295. 5420 TX$(8)[178]" 7(null)HAT IF WE POKE THE VALUE
  296. 5430 TX$(10)="7.32 INTO A LOCATION?":CS=1:PC=13:GOSUB100
  297. 5440 CC=13:GOSUB450:IFRS$="5"THEN5490
  298. 5450 PRINT"       2 RAISED TO WHAT POWER
  299. 5460 [153]"       IS 32?":[141]700
  300. 5470 [153]"                             "
  301. 5480 [153]"             ":[137]5440
  302. 5490 TX$(12)[178]" 7LEFT$OW ABOUT THE VALUE 128?":CS[178]1:PC[178]10:[141]100
  303. 5500 CC[178]10:[141]450:[139]RS$[178]"7"[167]5550
  304. 5510 [153]"       2 RAISED TO WHAT POWER
  305. 5520 PRINT"       IS 128?":GOSUB700
  306. 5530 PRINT"                             "
  307. 5540 PRINT"              ":GOTO5500
  308. 5550 TX$(14)=" 7[199]REAT!  [204]ET'S MOVE ON TO
  309. 5560 TX$(16)[178]" 7SOMETHING MORE CHALLENGING."
  310. 5570 PC[178]13:CS[178]1:[141]100:[141]650
  311. 5580 TX$(1)[178]" 6(null)UPPOSE WE WANT ONLY PEEKITS 2,
  312. 5590 TX$(3)="6.3 AND 5 OF A CERTAIN BYTE TO
  313. 5600 TX$(5)[178]" 6HAVE THE VALUE 1.  (null)ET'S
  314. 5610 TX$(7)=" 6FIGURE OUT WHAT VALUE WE
  315. 5620 TX$(9)[178]" 6HAVE TO POKE THAT LOCATION.
  316. 5630 PC=12:GOSUB100:PRINT"      [215]HAT'S 2[145]2? ";
  317. 5635 GOSUB800:IC$="0123456789":IL=1:CC=3
  318. 5640 GOSUB450:IFRS$<>"4"THEN5640
  319. 5650 PRINT"[145]      2[145]2[157]  = 4  [145] [157][215]HAT'S 2[145]3? ";:GOSUB800
  320. 5660 GOSUB450:IFRS$<>"8"THEN5660
  321. 5670 PRINT"[145]"TAB(14)"2[145]3[157]  = 8  [145] [157][215]HAT'S 2[145]5? ";:GOSUB800:IL=2
  322. 5680 GOSUB450:IFRS$<>"32"THEN5680
  323. 5690 PRINT"[145]"TAB(22)"2[145]5[157]  = 32 [145]     "
  324. 5700 TX$(14)=" 6[199]OOD.  [206]OW, WHAT'S THE SUM OF
  325. 5710 TX$(16)[178]" 6THESE THREE NUMBERS?
  326. 5720 CS=1:GOSUB100
  327. 5730 GOSUB450:IFRS$<>"44"THEN5730
  328. 5740 PRINT"[145][145][145]      4 + 8 + 32 = 44              ":PRINTSP$
  329. 5750 TX$(16)=" 6[210]IGHT!  [211]O THAT'S THE VALUE
  330. 5760 TX$(18)[178]" 6TO POKE TO GET 00101100.
  331. 5770 CS=1:GOSUB100:GOSUB650
  332. 5780 H1$="":H2$="":H3$=""
  333. 5790 TX$(6)=" 9[200][207][208][197][160][217][207][213][160][199][207][212][160][211][207][205][197][212][200][201][206][199]"
  334. 5800 TX$(9)="16[206][201][195][197][160][202][207][194]"
  335. 5810 TX$(12)="16[211][207][160][204][207][206][199]!
  336. 5820 PC[178]5:[141]100
  337. 5830 [129]I[178]1[164]3:[151]V[170]32,[187](1)[172]16:[151]V[170]33,[187](1)[172]16:[130]I:[153]"LOAD"
  338. 5840 [129]I[178]1[164]7:[151]V[170]32,[187](1)[172]16:[151]V[170]33,[187](1)[172]16:[130]I
  339. 5850 [151]V[170]32,14:[151]V[170]33,6:[151]53272,21
  340. 5860 [128]
  341. 6000 [153]"LOAD           COLOR SELECTION"
  342. 6010 [153]"               PRESSWAIT"
  343. 6020 [153]"         F1 TO CHANGE BORDER"
  344. 6030 [153]"         F3 TO CHANGE BACKGROUND"
  345. 6040 [153]"         F5 TO CHANGE TEXT"
  346. 6050 [153]"         F7 TO BEGIN PROGRAM"
  347. 6065 [161]Z1$:[139]Z1$[178]""[167]6065
  348. 6070 ZQ[178]137[171][198](Z1$)
  349. 6080 [145]ZQ[137]7000,8000,9000,10000
  350. 6090 [137]6065
  351. 7000 [142]
  352. 8000 P2[178]P2[170]1
  353. 8010 [139]P2[177]15[167]P2[178]0
  354. 8020 [151]646,P2:[137]6000
  355. 9000 BQC[178]BQC[170]1
  356. 9010 [139]BQC[177]15[167]BQC[178]0
  357. 9020 [151]53281,BQC:[137]6065
  358. 10000 BZR[178]BZR[170]1
  359. 10010 [139]BZR[177]15[167]BZR[178]0
  360. 10020 [151]53280,BZR:[137]6065
  361.